home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / games / 73 / pascal / intest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-11-21  |  491 b   |  20 lines
  1. program in_test;
  2.  
  3. {****************************************************************************
  4.  
  5.         Program to test Rinput.pas and Input.pas  include files...
  6.  
  7. ****************************************************************************}
  8.  
  9. { now include needed subroutines... }
  10.  
  11. {$i rinput.pas}
  12. {$i input.pas}
  13.  
  14. Begin
  15.  
  16.    Writeln( Input( 'Enter Integer in range of 1 to 10 ', 1, 10, 0 ) );
  17.    Writeln( Rinput( 'Enter Real in range of 1 to 10 ', 1, 10, 0 ):1:4 );
  18.  
  19. End.
  20.